(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     13988,        526]
NotebookOptionsPosition[      9616,        373]
NotebookOutlinePosition[     10241,        397]
CellTagsIndexPosition[     10162,        392]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["XX", "HistoryData",
  CellTags->"New"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised"]
}], "History",
 CellID->1247902091],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507],

Cell["TransferMatrixFormalism Package", "Categorization",
 CellChangeTimes->{3.6000068418273726`*^9},
 CellLabel->"Paclet Name",
 CellID->23879671],

Cell["TransferMatrixFormalism`", "Categorization",
 CellLabel->"Context",
 CellID->1005632385],

Cell["TransferMatrixFormalism/ref/ReflectBottomS", "Categorization",
 CellChangeTimes->{3.5981958511900377`*^9, 3.600006842622974*^9},
 CellLabel->"URI",
 CellID->177336455]
}, Open  ]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellChangeTimes->{{3.598196262920761*^9, 3.5981962650111647`*^9}},
 CellID->477174294],

Cell["reflection", "Keywords",
 CellChangeTimes->{{3.5981960046593075`*^9, 3.598196008746515*^9}, {
  3.598196267023568*^9, 3.598196272843379*^9}},
 CellID->1164421360],

Cell["reflect", "Keywords",
 CellChangeTimes->{{3.59819626788157*^9, 3.5981962698315735`*^9}},
 CellID->11475701],

Cell["transfer coefficient", "Keywords",
 CellChangeTimes->{{3.5981960046593075`*^9, 3.598196008746515*^9}, 
   3.598196267023568*^9},
 CellID->115353496],

Cell["total system transfer coefficient", "Keywords",
 CellChangeTimes->{{3.5981960046593075`*^9, 3.598196016936529*^9}},
 CellID->128294479],

Cell["partial system transfer coefficient", "Keywords",
 CellChangeTimes->{{3.5981960046593075`*^9, 3.59819602330134*^9}, {
  3.5981964515436926`*^9, 3.5981964515436926`*^9}},
 CellID->167422569],

Cell["Eq. 19", "Keywords",
 CellChangeTimes->{{3.5981960046593075`*^9, 3.59819602330134*^9}, {
  3.5981964515436926`*^9, 3.598196454070897*^9}},
 CellID->284610681],

Cell["Eq. 28", "Keywords",
 CellChangeTimes->{{3.5981960046593075`*^9, 3.59819602330134*^9}, {
  3.5981964515436926`*^9, 3.5981964559273005`*^9}},
 CellID->147057310]
}, Open  ]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->670882175],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->8391405],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365]
}, Closed]],

Cell[CellGroupData[{

Cell["ReflectBottomS", "ObjectName",
 CellChangeTimes->{3.598195872126274*^9},
 CellID->1224892054],

Cell[TextData[{
 Cell["      ", "ModInfo"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["ReflectBottomS",
    BaseStyle->"Link",
    ButtonData->"paclet:TransferMatrixFormalism/ref/ReflectBottomS"], "[", 
   StyleBox["\[CapitalSigma]", "TR"], "]"}]], "InlineFormula"],
 "\[LineSeparator]calculates the reflection coefficient for incidence from \
the bottom side through transfer matrix \[CapitalSigma], where \
\[CapitalSigma] can be S, SI, or SII. ",
 ButtonBox["Eqs. 19 and 28",
  BaseStyle->"Link",
  ButtonData->
   "paclet:TransferMatrixFormalism/ReferencePages/Symbols/ReflectBottom#\
148884605"],
 "."
}], "Usage",
 Deletable->True,
 CellChangeTimes->{{3.598021952950941*^9, 3.5980219852751975`*^9}, {
   3.598195872984276*^9, 3.598195900315524*^9}, 3.59819597200745*^9, {
   3.598196116387704*^9, 3.5981961776978116`*^9}}],

Cell["XXXX", "Notes",
 CellID->1067943069]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057],

Cell["XXXX", "Tutorials",
 CellID->341631938]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535],

Cell[TextData[ButtonBox["D. B. O\[CloseCurlyQuote]Brien and A. M. Massari, \
\"Modeling multilayer thin film interference effects in interface-specific \
coherent nonlinear optical spectroscopies,\" J. Opt. Soc. Am. B 30, 1503 \
(2013).",
 BaseStyle->"Hyperlink",
 ButtonData->{
   URL["http://dx.doi.org/10.1364/JOSAB.30.001503"], None}]], "RelatedLinks",
 CellChangeTimes->{{3.597765920073867*^9, 3.5977659201674676`*^9}},
 CellID->148884605]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["AbelesS",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/AbelesS"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["AbelesSIv",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/AbelesSIv"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["AbelesSIIv",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/AbelesSIIv"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["RefractionMv",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/RefractionMv"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["PhaseMv",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/PhaseMv"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["TransmitTopS",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/TransmitTopS"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["TransmitBottomS",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/TransmitBottomS"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["ReflectTopS",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/ReflectTopS"]], 
  "InlineFormula"]
}], "SeeAlso",
 CellChangeTimes->{{3.598022991122965*^9, 3.598023097065751*^9}, {
   3.598023135925419*^9, 3.598023151244646*^9}, 3.598023206064142*^9, {
   3.598196044595378*^9, 3.5981960506637883`*^9}},
 CellID->929782353]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248],

Cell["XXXX", "MoreAbout",
 CellID->1665078683]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968],

Cell[BoxData[
 InterpretationBox[Cell["Scope", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265],

Cell[BoxData[
 InterpretationBox[Cell["Generalizations & Extensions", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell["Options", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341],

Cell[BoxData[
 InterpretationBox[Cell["XXXX", "ExampleSubsection"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1757724783],

Cell[BoxData[
 InterpretationBox[Cell["XXXX", "ExampleSubsection"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1295379749]
}, Closed]],

Cell[BoxData[
 InterpretationBox[Cell["Applications", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157],

Cell[BoxData[
 InterpretationBox[Cell["Properties & Relations", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759],

Cell[BoxData[
 InterpretationBox[Cell["Possible Issues", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373],

Cell[BoxData[
 InterpretationBox[Cell["Interactive Examples", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318],

Cell[BoxData[
 InterpretationBox[Cell["Neat Examples", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740]
}, Open  ]]
},
WindowSize->{700, 770},
WindowMargins->{{60, Automatic}, {46, Automatic}},
CellContext->"Global`",
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "WindowsANSI"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[8096, 315, 100, 2, 70, "ExtendedExamplesSection",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 10024, 385}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 324, 14, 22, "History",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[906, 38, 68, 1, 27, "CategorizationSection",
 CellID->1122911449],
Cell[977, 41, 79, 2, 31, "Categorization",
 CellID->686433507],
Cell[1059, 45, 147, 3, 31, "Categorization",
 CellID->23879671],
Cell[1209, 50, 94, 2, 31, "Categorization",
 CellID->1005632385],
Cell[1306, 54, 173, 3, 31, "Categorization",
 CellID->177336455]
}, Open  ]],
Cell[CellGroupData[{
Cell[1516, 62, 123, 2, 27, "KeywordsSection",
 CellID->477174294],
Cell[1642, 66, 168, 3, 17, "Keywords",
 CellID->1164421360],
Cell[1813, 71, 113, 2, 17, "Keywords",
 CellID->11475701],
Cell[1929, 75, 154, 3, 17, "Keywords",
 CellID->115353496],
Cell[2086, 80, 141, 2, 17, "Keywords",
 CellID->128294479],
Cell[2230, 84, 195, 3, 17, "Keywords",
 CellID->167422569],
Cell[2428, 89, 164, 3, 17, "Keywords",
 CellID->284610681],
Cell[2595, 94, 166, 3, 17, "Keywords",
 CellID->147057310]
}, Open  ]],
Cell[CellGroupData[{
Cell[2798, 102, 65, 1, 27, "TemplatesSection",
 CellID->1872225408],
Cell[2866, 105, 94, 2, 70, "Template",
 CellID->1562036412],
Cell[2963, 109, 82, 2, 70, "Template",
 CellID->158391909],
Cell[3048, 113, 81, 2, 70, "Template",
 CellID->1360575930],
Cell[3132, 117, 82, 2, 70, "Template",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[3251, 124, 53, 1, 17, "DetailsSection",
 CellID->307771771],
Cell[3307, 127, 63, 2, 70, "Details",
 CellID->670882175],
Cell[3373, 131, 69, 2, 70, "Details",
 CellID->350963985],
Cell[3445, 135, 64, 2, 70, "Details",
 CellID->8391405],
Cell[3512, 139, 69, 2, 70, "Details",
 CellID->3610269],
Cell[3584, 143, 61, 2, 70, "Details",
 CellID->401364205],
Cell[3648, 147, 61, 2, 70, "Details",
 CellID->350204745],
Cell[3712, 151, 63, 2, 70, "Details",
 CellID->732958810],
Cell[3778, 155, 78, 2, 70, "Details",
 CellID->222905350],
Cell[3859, 159, 67, 2, 70, "Details",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[3963, 166, 99, 2, 62, "ObjectName",
 CellID->1224892054],
Cell[4065, 170, 825, 21, 85, "Usage"],
Cell[4893, 193, 42, 1, 23, "Notes",
 CellID->1067943069]
}, Open  ]],
Cell[CellGroupData[{
Cell[4972, 199, 57, 1, 43, "TutorialsSection",
 CellID->250839057],
Cell[5032, 202, 45, 1, 16, "Tutorials",
 CellID->341631938]
}, Open  ]],
Cell[CellGroupData[{
Cell[5114, 208, 83, 1, 30, "RelatedDemonstrationsSection",
 CellID->1268215905],
Cell[5200, 211, 58, 1, 16, "RelatedDemonstrations",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[5295, 217, 65, 1, 30, "RelatedLinksSection",
 CellID->1584193535],
Cell[5363, 220, 444, 8, 29, "RelatedLinks",
 CellID->148884605]
}, Open  ]],
Cell[CellGroupData[{
Cell[5844, 233, 55, 1, 30, "SeeAlsoSection",
 CellID->1255426704],
Cell[5902, 236, 1655, 52, 35, "SeeAlso",
 CellID->929782353]
}, Open  ]],
Cell[CellGroupData[{
Cell[7594, 293, 57, 1, 30, "MoreAboutSection",
 CellID->38303248],
Cell[7654, 296, 46, 1, 70, "MoreAbout",
 CellID->1665078683]
}, Open  ]],
Cell[7715, 300, 356, 11, 70, "PrimaryExamplesSection",
 CellID->880084151],
Cell[CellGroupData[{
Cell[8096, 315, 100, 2, 70, "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[8199, 319, 125, 3, 70, "ExampleSection",
 CellID->1293636265],
Cell[8327, 324, 148, 3, 70, "ExampleSection",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[8500, 331, 127, 3, 70, "ExampleSection",
 CellID->2061341341],
Cell[8630, 336, 130, 3, 70, "ExampleSubsection",
 CellID->1757724783],
Cell[8763, 341, 130, 3, 70, "ExampleSubsection",
 CellID->1295379749]
}, Closed]],
Cell[8908, 347, 131, 3, 70, "ExampleSection",
 CellID->258228157],
Cell[9042, 352, 142, 3, 70, "ExampleSection",
 CellID->2123667759],
Cell[9187, 357, 135, 3, 70, "ExampleSection",
 CellID->1305812373],
Cell[9325, 362, 140, 3, 70, "ExampleSection",
 CellID->1653164318],
Cell[9468, 367, 132, 3, 70, "ExampleSection",
 CellID->589267740]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

